home *** CD-ROM | disk | FTP | other *** search
/ HPAVC / HPAVC CD-ROM.iso / BULLWUNR.ZIP / BULLWIDE.PPE (.txt) < prev    next >
PCBoard Programming Language Executable  |  1994-04-14  |  15KB  |  443 lines
  1. ;------------------------------------------------------------------------------
  2. ;                                                   .ss.
  3. ;                                                   `²²'
  4. ;             .,sS$Ss,,s$  .,sS$$$Ss.  .,sS$Ss,,s$ .ss.  .sSs.
  5. ;           .d$$²^°²$$$$'.d$P²°^^²$P'.d$$²^°²$$$$'.$$$' .$$$²Sb,.
  6. ;           $$$'   .$$$' $$$²Sçsµ²' .$$$'   .$$$'.$$$' .$$$'  `$$b.
  7. ;           $$$b,,d$$$' ,$$$b,....,s$$$$b,,d$$$'.$$$;.,$$$'    ;$$$
  8. ;           `²S$$S²²S$$S²°²S$$$$S²°°²S$$$$$$',$$S²°²S$S'.sS$$$P²'
  9. ;                                    .sS²°$$$²²°"'       d²°'
  10. ;                                  .$$²  .$$'
  11. ;                                  $$$.,d$$'
  12. ;                                  `²S$$S²'
  13. ;------------------------------------------------------------------------------
  14. ; P.P.L.X. 2.OO                          (C)1996 - Lone Runner / AEGiS CoRP'96 
  15. ;------------------------------------------------------------------------------
  16. ; PPE 2.OO (plain) - Analysis ON - Postprocessing ON
  17. ;------------------------------------------------------------------------------
  18.  
  19.     Integer  TINTEGER001(32,2)
  20.     Integer  INTEGER002
  21.     Integer  INTEGER003
  22.     Integer  INTEGER004
  23.     Integer  INTEGER005
  24.     Integer  INTEGER006
  25.     Integer  INTEGER007
  26.     String   STRING001
  27.     String   STRING002
  28.     String   STRING003
  29.     String   STRING004
  30.     String   STRING005
  31.     String   TSTRING006(512)
  32.     String   TSTRING007(512)
  33.     String   TSTRING008(16)
  34.  
  35. ;------------------------------------------------------------------------------
  36.  
  37.     STRING001 = ""
  38.     INTEGER005 = 31
  39.     INTEGER003 = 0
  40.     INTEGER002 = 0
  41.     INTEGER006 = 0
  42.     TINTEGER001(0, 0) = 4
  43.     TINTEGER001(0, 1) = 6
  44.     TINTEGER001(1, 0) = 4
  45.     TINTEGER001(1, 1) = 7
  46.     TINTEGER001(2, 0) = 4
  47.     TINTEGER001(2, 1) = 8
  48.     TINTEGER001(3, 0) = 4
  49.     TINTEGER001(3, 1) = 9
  50.     TINTEGER001(4, 0) = 4
  51.     TINTEGER001(4, 1) = 10
  52.     TINTEGER001(5, 0) = 4
  53.     TINTEGER001(5, 1) = 11
  54.     TINTEGER001(6, 0) = 4
  55.     TINTEGER001(6, 1) = 12
  56.     TINTEGER001(7, 0) = 4
  57.     TINTEGER001(7, 1) = 13
  58.     TINTEGER001(8, 0) = 4
  59.     TINTEGER001(8, 1) = 14
  60.     TINTEGER001(9, 0) = 4
  61.     TINTEGER001(9, 1) = 15
  62.     TINTEGER001(10, 0) = 4
  63.     TINTEGER001(10, 1) = 16
  64.     TINTEGER001(11, 0) = 4
  65.     TINTEGER001(11, 1) = 17
  66.     TINTEGER001(12, 0) = 4
  67.     TINTEGER001(12, 1) = 18
  68.     TINTEGER001(13, 0) = 4
  69.     TINTEGER001(13, 1) = 19
  70.     TINTEGER001(14, 0) = 4
  71.     TINTEGER001(14, 1) = 20
  72.     TINTEGER001(15, 0) = 4
  73.     TINTEGER001(15, 1) = 21
  74.     TINTEGER001(16, 0) = 42
  75.     TINTEGER001(16, 1) = 6
  76.     TINTEGER001(17, 0) = 42
  77.     TINTEGER001(17, 1) = 7
  78.     TINTEGER001(18, 0) = 42
  79.     TINTEGER001(18, 1) = 8
  80.     TINTEGER001(19, 0) = 42
  81.     TINTEGER001(19, 1) = 9
  82.     TINTEGER001(20, 0) = 42
  83.     TINTEGER001(20, 1) = 10
  84.     TINTEGER001(21, 0) = 42
  85.     TINTEGER001(21, 1) = 11
  86.     TINTEGER001(22, 0) = 42
  87.     TINTEGER001(22, 1) = 12
  88.     TINTEGER001(23, 0) = 42
  89.     TINTEGER001(23, 1) = 13
  90.     TINTEGER001(24, 0) = 42
  91.     TINTEGER001(24, 1) = 14
  92.     TINTEGER001(25, 0) = 42
  93.     TINTEGER001(25, 1) = 15
  94.     TINTEGER001(26, 0) = 42
  95.     TINTEGER001(26, 1) = 16
  96.     TINTEGER001(27, 0) = 42
  97.     TINTEGER001(27, 1) = 17
  98.     TINTEGER001(28, 0) = 42
  99.     TINTEGER001(28, 1) = 18
  100.     TINTEGER001(29, 0) = 42
  101.     TINTEGER001(29, 1) = 19
  102.     TINTEGER001(30, 0) = 42
  103.     TINTEGER001(30, 1) = 20
  104.     TINTEGER001(31, 0) = 42
  105.     TINTEGER001(31, 1) = 21
  106.     TSTRING008(0) = "0"
  107.     TSTRING008(1) = "1"
  108.     TSTRING008(2) = "2"
  109.     TSTRING008(3) = "3"
  110.     TSTRING008(4) = "4"
  111.     TSTRING008(5) = "5"
  112.     TSTRING008(6) = "6"
  113.     TSTRING008(7) = "7"
  114.     TSTRING008(8) = "8"
  115.     TSTRING008(9) = "9"
  116.     TSTRING008(10) = "A"
  117.     TSTRING008(11) = "B"
  118.     TSTRING008(12) = "C"
  119.     TSTRING008(13) = "D"
  120.     TSTRING008(14) = "E"
  121.     TSTRING008(15) = "F"
  122.     Log "BULLETIN PPE: entered", 0
  123.     If (TokCount() == 0) Then
  124.         Print "BULLETIN: .CFG path not specified, exiting..."
  125.         Log "BULLETIN: .CFG path not specified, exiting...", 0
  126.     Else
  127.         STRING002 = GetToken()
  128.         FOpen 1, PPEPath() + STRING002, 0, 0
  129.         If (Ferr(1)) Then
  130.             Print "BULLETIN: could not open " + STRING002 + ", exiting..."
  131.             Log "BULLETIN: could not open " + STRING002 + ", exiting...", 0
  132.         Else
  133.             FGet 1, STRING003
  134.             FGet 1, STRING004
  135.             FGet 1, STRING005
  136.             STRING003 = Upper(STRING003)
  137.             STRING004 = Upper(STRING004)
  138.             STRING005 = Upper(STRING005)
  139.             If (STRING003 == "RANDOM") STRING003 = TSTRING008(Random(15))
  140.             If (STRING004 == "RANDOM") Then
  141.                 INTEGER004 = Random(7)
  142.                 STRING004 = TSTRING008(INTEGER004)
  143.                 STRING005 = TSTRING008(INTEGER004 + 8)
  144.             Endif
  145.             INTEGER004 = 0
  146.             FGet 1, TSTRING006(INTEGER004)
  147.             FGet 1, TSTRING007(INTEGER004)
  148.             :LABEL001
  149.             If (Ferr(1)) Goto LABEL002
  150.             Inc INTEGER004
  151.             FGet 1, TSTRING006(INTEGER004)
  152.             FGet 1, TSTRING007(INTEGER004)
  153.             Goto LABEL001
  154.             :LABEL002
  155.             INTEGER007 = INTEGER004
  156.             If (Ferr(1)) Then
  157.                 Print "BULLETIN: error reading BULLETIN.CFG, exiting..."
  158.                 Log "BULLETIN: error reading BULLETIN.CFG, exiting...", 0
  159.             Else
  160.                 :LABEL003
  161.                 Gosub LABEL012
  162.                 Gosub LABEL011
  163.                 Gosub LABEL007
  164.                 While (INTEGER003 <> 1) Do
  165.                     STRING002 = ""
  166.                     STRING002 = Inkey()
  167.                     STRING002 = Upper(STRING002)
  168.                     If ((Left(STRING002, 4) == "DOWN") || (STRING002 == "2")) Then
  169.                         Gosub LABEL008
  170.                         Inc INTEGER002
  171.                         If (INTEGER002 > INTEGER005) INTEGER002 = 0
  172.                         Gosub LABEL007
  173.                         Continue
  174.                     Endif
  175.                     If ((Left(STRING002, 2) == "UP") || (STRING002 == "8")) Then
  176.                         Gosub LABEL008
  177.                         Dec INTEGER002
  178.                         If (INTEGER002 < 0) INTEGER002 = INTEGER005
  179.                         Gosub LABEL007
  180.                         Continue
  181.                     Endif
  182.                     If ((Left(STRING002, 5) == "RIGHT") || (STRING002 == "6")) Then
  183.                         Gosub LABEL008
  184.                         If (INTEGER002 + 16 > INTEGER005) Then
  185.                             INTEGER002 = INTEGER002 + 16 - INTEGER005 - 1
  186.                             Goto LABEL004
  187.                         Endif
  188.                         INTEGER002 = INTEGER002 + 16
  189.                         :LABEL004
  190.                         Gosub LABEL007
  191.                         Continue
  192.                     Endif
  193.                     If ((Left(STRING002, 4) == "LEFT") || (STRING002 == "4")) Then
  194.                         Gosub LABEL008
  195.                         If (INTEGER002 - 16 < 0) Then
  196.                             INTEGER002 = INTEGER005 + INTEGER002 - 16 + 1
  197.                             Goto LABEL005
  198.                         Endif
  199.                         INTEGER002 = INTEGER002 - 16
  200.                         :LABEL005
  201.                         Gosub LABEL007
  202.                         Continue
  203.                     Endif
  204.                     If (STRING002 == Chr(13)) Then
  205.                         DefColor
  206.                         Gosub LABEL009
  207.                         Goto LABEL003
  208.                         Continue
  209.                     Endif
  210.                     If ((STRING002 == "+") || (Left(STRING002, 4) == "PGDN")) Then
  211.                         DefColor
  212.                         Inc INTEGER006
  213.                         If (INTEGER006 > 15) INTEGER006 = 15
  214.                         Goto LABEL003
  215.                         Continue
  216.                     Endif
  217.                     If ((STRING002 == "-") || (Left(STRING002, 4) == "PGUP")) Then
  218.                         DefColor
  219.                         Dec INTEGER006
  220.                         If (INTEGER006 < 0) INTEGER006 = 0
  221.                         Goto LABEL003
  222.                         Continue
  223.                     Endif
  224.                     If ((Left(STRING002, 4) == "HOME") || (STRING002 == Chr(23))) Then
  225.                         DefColor
  226.                         INTEGER006 = 0
  227.                         INTEGER002 = 0
  228.                         Goto LABEL003
  229.                         Continue
  230.                     Endif
  231.                     If ((Left(STRING002, 3) == "END") || (STRING002 == Chr(16))) Then
  232.                         DefColor
  233.                         INTEGER006 = INTEGER007 / INTEGER005 + 1
  234.                         INTEGER002 = 0
  235.                         Goto LABEL003
  236.                         Continue
  237.                     Endif
  238.                     If (STRING002 == "D") Then
  239.                         DefColor
  240.                         Gosub LABEL010
  241.                         Goto LABEL003
  242.                         Continue
  243.                     Endif
  244.                     If (STRING002 == "Q") Then
  245.                         INTEGER003 = 1
  246.                         Continue
  247.                     Endif
  248.                     If (STRING002 == "H") Then
  249.                         DefColor
  250.                         Gosub LABEL013
  251.                         Goto LABEL003
  252.                     Endif
  253.                 EndWhile
  254.             Endif
  255.         Endif
  256.     Endif
  257.     :LABEL006
  258.     DefColor
  259.     Print "@CLS@"
  260.     FClose 1
  261.     Log "BULLETIN PPE: exited", 0
  262.     End
  263.     :LABEL007
  264.     STRING002 = ScrText(TINTEGER001(INTEGER002, 0), TINTEGER001(INTEGER002, 1), 35, 0)
  265.     AnsiPos TINTEGER001(INTEGER002, 0), TINTEGER001(INTEGER002, 1)
  266.     Print "@X" + STRING004 + "0"
  267.     STRING002 = RTrim(STRING002, " ")
  268.     If (STRING002 == "") Then
  269.         Print "QUIT"
  270.     Else
  271.         Print STRING002
  272.     Endif
  273.     AnsiPos TINTEGER001(INTEGER002, 0), TINTEGER001(INTEGER002, 1)
  274.     Return
  275.     :LABEL008
  276.     STRING002 = ScrText(TINTEGER001(INTEGER002, 0), TINTEGER001(INTEGER002, 1), 35, 0)
  277.     AnsiPos TINTEGER001(INTEGER002, 0), TINTEGER001(INTEGER002, 1)
  278.     Print "@X" + STRING004 + STRING005
  279.     STRING002 = RTrim(STRING002, " ")
  280.     If (STRING002 == "QUIT") Then
  281.         Print "                                "
  282.     Else
  283.         Print STRING002
  284.     Endif
  285.     Return
  286.     :LABEL009
  287.     STRING002 = ScrText(TINTEGER001(INTEGER002, 0), TINTEGER001(INTEGER002, 1), 4, 0)
  288.     If (RTrim(STRING002, " ") == "QUIT") Then
  289.         Goto LABEL006
  290.     Else
  291.         Print "@CLS@@PON@"
  292.         DispFile TSTRING007(INTEGER002 + INTEGER006 * (INTEGER005 + 1)), 2 + 1 + 4
  293.         Print "@WAIT@"
  294.     Endif
  295.     Return
  296.     :LABEL010
  297.     Print "@CLS@"
  298.     If (TSTRING007(INTEGER002) <> "") Then
  299.         Download TSTRING007(INTEGER002 + INTEGER006 * (INTEGER005 + 1))
  300.         Print "@WAIT@"
  301.     Endif
  302.     Return
  303.     :LABEL011
  304.     Print "@X" + STRING004 + STRING005
  305.     For INTEGER004 = 0 To INTEGER005
  306.         AnsiPos TINTEGER001(INTEGER004, 0), TINTEGER001(INTEGER004, 1)
  307.         If (TSTRING006(INTEGER004 + INTEGER006 * (INTEGER005 + 1)) == "") Then
  308.             Print "                                   "
  309.             Continue
  310.         Endif
  311.         Print TSTRING006(INTEGER004 + INTEGER006 * (INTEGER005 + 1))
  312.     Next
  313.     Return
  314.     :LABEL012
  315.     PrintLn "@POFF@@CLS@@X0" + STRING005 + "▐@X" + STRING004 + STRING005 + "┌───────────────────────────────────────────────────────────────────────────@X" + STRING004 + "0┐@X08▌"
  316.     PrintLn "@X0" + STRING005 + "▐@X" + STRING004 + STRING005 + "│ @X" + STRING004 + STRING003 + "BULLETIN.PPE ■ COPYRIGHT 1994 ROBERT BROWER ■ TOTAL ACCESS (905) 568-5294 @X" + STRING004 + "0│@X08▌"
  317.     PrintLn "@X0" + STRING005 + "▐@X" + STRING004 + STRING005 + "└@X" + STRING004 + "0───────────────────────────────────────────────────────────────────────────┘@X08▌"
  318.     Print "@X0" + STRING005 + "▐@X" + STRING004 + "0 @X" + STRING004 + STRING005 + "(@X" + STRING004 + STRING003 + "@X" + STRING004 + STRING005 + ")UP/DOWN (@X" + STRING004 + STRING003 + "@X" + STRING004 + STRING005 + ")LEFT/RIGHT (@X" + STRING004 + STRING003 + "D@X" + STRING004 + STRING005 + ")LOAD (@X" + STRING004 + STRING003 + "H@X" + STRING004 + STRING005 + ")ELP (@X" + STRING004 + STRING003 + "+@X" + STRING004 + STRING005 + "/@X" + STRING004 + STRING003 + "-@X" + STRING004 + STRING005 + ")NEXT/PREV. PAGE "
  319.     PrintLn "(@X" + STRING004 + STRING003 + "Q@X" + STRING004 + STRING005 + ")UIT (@X" + STRING004 + STRING003 + "ENTER@X" + STRING004 + STRING005 + ") @X08▌"
  320.     PrintLn "@X0" + STRING005 + "▐@X" + STRING004 + STRING005 + " ┌───────────────────────────────────@X" + STRING004 + "0┐ @X" + STRING004 + STRING005 + "┌───────────────────────────────────@X" + STRING004 + "0┐ @X08▌"
  321.     PrintLn "@X0" + STRING005 + "▐@X" + STRING004 + STRING005 + " │                                   @X" + STRING004 + "0│ @X" + STRING004 + STRING005 + "│                                   @X" + STRING004 + "0│ @X08▌"
  322.     PrintLn "@X0" + STRING005 + "▐@X" + STRING004 + STRING005 + " │                                   @X" + STRING004 + "0│ @X" + STRING004 + STRING005 + "│                                   @X" + STRING004 + "0│ @X08▌"
  323.     PrintLn "@X0" + STRING005 + "▐@X" + STRING004 + STRING005 + " │                                   @X" + STRING004 + "0│ @X" + STRING004 + STRING005 + "│                                   @X" + STRING004 + "0│ @X08▌"
  324.     PrintLn "@X0" + STRING005 + "▐@X" + STRING004 + STRING005 + " │                                   @X" + STRING004 + "0│ @X" + STRING004 + STRING005 + "│                                   @X" + STRING004 + "0│ @X08▌"
  325.     PrintLn "@X0" + STRING005 + "▐@X" + STRING004 + STRING005 + " │                                   @X" + STRING004 + "0│ @X" + STRING004 + STRING005 + "│                                   @X" + STRING004 + "0│ @X08▌"
  326.     PrintLn "@X0" + STRING005 + "▐@X" + STRING004 + STRING005 + " │                                   @X" + STRING004 + "0│ @X" + STRING004 + STRING005 + "│                                   @X" + STRING004 + "0│ @X08▌"
  327.     PrintLn "@X0" + STRING005 + "▐@X" + STRING004 + STRING005 + " │                                   @X" + STRING004 + "0│ @X" + STRING004 + STRING005 + "│                                   @X" + STRING004 + "0│ @X08▌"
  328.     PrintLn "@X0" + STRING005 + "▐@X" + STRING004 + STRING005 + " │                                   @X" + STRING004 + "0│ @X" + STRING004 + STRING005 + "│                                   @X" + STRING004 + "0│ @X08▌"
  329.     PrintLn "@X0" + STRING005 + "▐@X" + STRING004 + STRING005 + " │                                   @X" + STRING004 + "0│ @X" + STRING004 + STRING005 + "│                                   @X" + STRING004 + "0│ @X08▌"
  330.     PrintLn "@X0" + STRING005 + "▐@X" + STRING004 + STRING005 + " │                                   @X" + STRING004 + "0│ @X" + STRING004 + STRING005 + "│                                   @X" + STRING004 + "0│ @X08▌"
  331.     PrintLn "@X0" + STRING005 + "▐@X" + STRING004 + STRING005 + " │                                   @X" + STRING004 + "0│ @X" + STRING004 + STRING005 + "│                                   @X" + STRING004 + "0│ @X08▌"
  332.     PrintLn "@X0" + STRING005 + "▐@X" + STRING004 + STRING005 + " │                                   @X" + STRING004 + "0│ @X" + STRING004 + STRING005 + "│                                   @X" + STRING004 + "0│ @X08▌"
  333.     PrintLn "@X0" + STRING005 + "▐@X" + STRING004 + STRING005 + " │                                   @X" + STRING004 + "0│ @X" + STRING004 + STRING005 + "│                                   @X" + STRING004 + "0│ @X08▌"
  334.     PrintLn "@X0" + STRING005 + "▐@X" + STRING004 + STRING005 + " │                                   @X" + STRING004 + "0│ @X" + STRING004 + STRING005 + "│                                   @X" + STRING004 + "0│ @X08▌"
  335.     PrintLn "@X0" + STRING005 + "▐@X" + STRING004 + STRING005 + " │                                   @X" + STRING004 + "0│ @X" + STRING004 + STRING005 + "│                                   @X" + STRING004 + "0│ @X08▌"
  336.     PrintLn "@X0" + STRING005 + "▐@X" + STRING004 + STRING005 + " │                                   @X" + STRING004 + "0│ @X" + STRING004 + STRING005 + "│                                   @X" + STRING004 + "0│ @X08▌"
  337.     PrintLn "@X0" + STRING005 + "▐@X" + STRING004 + STRING005 + " └@X" + STRING004 + "0───────────────────────────────────┘ @X" + STRING004 + STRING005 + "└@X" + STRING004 + "0───────────────────────────────────┘ @X08▌"
  338.     Return
  339.     :LABEL013
  340.     PrintLn "@POFF@@CLS@@X0" + STRING005 + "▐@X" + STRING004 + STRING005 + "┌───────────────────────────────────────────────────────────────────────────@X" + STRING004 + "0┐@X08▌"
  341.     PrintLn "@X0" + STRING005 + "▐@X" + STRING004 + STRING005 + "│ @X" + STRING004 + STRING003 + "BULLETIN.PPE ■ COPYRIGHT 1994 ROBERT BROWER ■ TOTAL ACCESS (905) 568-5294 @X" + STRING004 + "0│@X08▌"
  342.     PrintLn "@X0" + STRING005 + "▐@X" + STRING004 + STRING005 + "└@X" + STRING004 + "0───────────────────────────────────────────────────────────────────────────┘@X08▌"
  343.     If (STRING001 == "") Then
  344.         STRING002 = "@X8E                         UNREGISTERED EVALUATION COPY"
  345.         PrintLn STRING002
  346.     Else
  347.         STRING002 = "REGISTERED TO: " + STRING001
  348.         Forward (80 - Len(STRING002)) / 2
  349.         PrintLn "@X0" + STRING003 + STRING002
  350.     Endif
  351.     PrintLn "@X0" + STRING005 + "▐@X" + STRING004 + STRING005 + "┌───────────────────────────────────────────────────────────────────────────@X" + STRING004 + "0┐@X08▌"
  352.     PrintLn "@X0" + STRING005 + "▐@X" + STRING004 + STRING005 + "│                                                                           @X" + STRING004 + "0│@X08▌"
  353.     PrintLn "@X0" + STRING005 + "▐@X" + STRING004 + STRING005 + "│     @X" + STRING004 + STRING003 + "KEY           FUNCTION DESCRIPTION                                    @X" + STRING004 + "0│@X08▌"
  354.     PrintLn "@X0" + STRING005 + "▐@X" + STRING004 + STRING005 + "│  @X" + STRING004 + "0┌───────@X" + STRING004 + STRING005 + "┐ @X" + STRING004 + "0┌────────────────────────────────@X" + STRING004 + STRING005 + "┐                             @X" + STRING004 + "0│@X08▌"
  355.     PrintLn "@X0" + STRING005 + "▐@X" + STRING004 + STRING005 + "│  @X" + STRING004 + "0│     @X" + STRING004 + STRING003 + " @X" + STRING004 + STRING005 + "│ @X" + STRING004 + "0│ @X" + STRING004 + STRING003 + "Move Up One Selection          @X" + STRING004 + STRING005 + "│                             @X" + STRING004 + "0│@X08▌"
  356.     PrintLn "@X0" + STRING005 + "▐@X" + STRING004 + STRING005 + "│  @X" + STRING004 + "0│     @X" + STRING004 + STRING003 + " @X" + STRING004 + STRING005 + "│ @X" + STRING004 + "0│ @X" + STRING004 + STRING003 + "Move Down One Selection        @X" + STRING004 + STRING005 + "│     @X" + STRING004 + STRING003 + "CURSOR or NUMERICAL     @X" + STRING004 + "0│@X08▌"
  357.     PrintLn "@X0" + STRING005 + "▐@X" + STRING004 + STRING005 + "│  @X" + STRING004 + "0│     @X" + STRING004 + STRING003 + " @X" + STRING004 + STRING005 + "│ @X" + STRING004 + "0│ @X" + STRING004 + STRING003 + "Move Left One Selection        @X" + STRING004 + STRING005 + "│       @X" + STRING004 + STRING003 + "DIRECTION KEYS:       @X" + STRING004 + "0│@X08▌"
  358.     PrintLn "@X0" + STRING005 + "▐@X" + STRING004 + STRING005 + "│  @X" + STRING004 + "0│     @X" + STRING004 + STRING003 + " @X" + STRING004 + STRING005 + "│ @X" + STRING004 + "0│ @X" + STRING004 + STRING003 + "Move Right One Selection       @X" + STRING004 + STRING005 + "│         @X" + STRING004 + "0┌─────────@X" + STRING004 + STRING005 + "┐         @X" + STRING004 + "0│@X08▌"
  359.     PrintLn "@X0" + STRING005 + "▐@X" + STRING004 + STRING005 + "│  @X" + STRING004 + "0│@X" + STRING004 + STRING003 + "PGDN/+ @X" + STRING004 + STRING005 + "│ @X" + STRING004 + "0│ @X" + STRING004 + STRING003 + "Move Right One Selection       @X" + STRING004 + STRING005 + "│         @X" + STRING004 + "0│    @X" + STRING004 + STRING003 + "8    @X" + STRING004 + STRING005 + "│         @X" + STRING004 + "0│@X08▌"
  360.     PrintLn "@X0" + STRING005 + "▐@X" + STRING004 + STRING005 + "│  @X" + STRING004 + "0│@X" + STRING004 + STRING003 + "PGUP/- @X" + STRING004 + STRING005 + "│ @X" + STRING004 + "0│ @X" + STRING004 + STRING003 + "Move Left One Selection        @X" + STRING004 + STRING005 + "│         @X" + STRING004 + "0│    @X" + STRING004 + STRING003 + "    @X" + STRING004 + STRING005 + "│         @X" + STRING004 + "0│@X08▌"
  361.     PrintLn "@X0" + STRING005 + "▐@X" + STRING004 + STRING005 + "│  @X" + STRING004 + "0│  @X" + STRING004 + STRING003 + "HOME @X" + STRING004 + STRING005 + "│ @X" + STRING004 + "0│ @X" + STRING004 + STRING003 + "Go To First Page               @X" + STRING004 + STRING005 + "│         @X" + STRING004 + "0│  @X" + STRING004 + STRING003 + "4  6  @X" + STRING004 + STRING005 + "│         @X" + STRING004 + "0│@X08▌"
  362.     PrintLn "@X0" + STRING005 + "▐@X" + STRING004 + STRING005 + "│  @X" + STRING004 + "0│   @X" + STRING004 + STRING003 + "END @X" + STRING004 + STRING005 + "│ @X" + STRING004 + "0│ @X" + STRING004 + STRING003 + "Go To Last Page                @X" + STRING004 + STRING005 + "│         @X" + STRING004 + "0│    @X" + STRING004 + STRING003 + "    @X" + STRING004 + STRING005 + "│         @X" + STRING004 + "0│@X08▌"
  363.     PrintLn "@X0" + STRING005 + "▐@X" + STRING004 + STRING005 + "│  @X" + STRING004 + "0│     @X" + STRING004 + STRING003 + "D @X" + STRING004 + STRING005 + "│ @X" + STRING004 + "0│ @X" + STRING004 + STRING003 + "Download Highlighted Bulletin  @X" + STRING004 + STRING005 + "│         @X" + STRING004 + "0│    @X" + STRING004 + STRING003 + "2    @X" + STRING004 + STRING005 + "│         @X" + STRING004 + "0│@X08▌"
  364.     PrintLn "@X0" + STRING005 + "▐@X" + STRING004 + STRING005 + "│  @X" + STRING004 + "0│     @X" + STRING004 + STRING003 + "H @X" + STRING004 + STRING005 + "│ @X" + STRING004 + "0│ @X" + STRING004 + STRING003 + "Access This Help Screen        @X" + STRING004 + STRING005 + "│         @X" + STRING004 + "0└@X" + STRING004 + STRING005 + "─────────┘         @X" + STRING004 + "0│@X08▌"
  365.     PrintLn "@X0" + STRING005 + "▐@X" + STRING004 + STRING005 + "│  @X" + STRING004 + "0│     @X" + STRING004 + STRING003 + "Q @X" + STRING004 + STRING005 + "│ @X" + STRING004 + "0│ @X" + STRING004 + STRING003 + "Quit And Return To System      @X" + STRING004 + STRING005 + "│                             @X" + STRING004 + "0│@X08▌"
  366.     PrintLn "@X0" + STRING005 + "▐@X" + STRING004 + STRING005 + "│  @X" + STRING004 + "0│ @X" + STRING004 + STRING003 + "ENTER @X" + STRING004 + STRING005 + "│ @X" + STRING004 + "0│ @X" + STRING004 + STRING003 + "Select Bulletin For Reading    @X" + STRING004 + STRING005 + "│                             @X" + STRING004 + "0│@X08▌"
  367.     PrintLn "@X0" + STRING005 + "▐@X" + STRING004 + STRING005 + "│  @X" + STRING004 + "0└@X" + STRING004 + STRING005 + "───────┘ @X" + STRING004 + "0└@X" + STRING004 + STRING005 + "────────────────────────────────┘                             @X" + STRING004 + "0│@X08▌"
  368.     PrintLn "@X0" + STRING005 + "▐@X" + STRING004 + STRING005 + "└@X" + STRING004 + "0───────────────────────────────────────────────────────────────────────────┘@X08▌"
  369.     Print "@WAIT@"
  370.     Return
  371.  
  372. ;------------------------------------------------------------------------------
  373. ;
  374. ; Usage report (before postprocessing)
  375. ;
  376. ; ■ Statements used :
  377. ;
  378. ;    1       End
  379. ;    59      Goto 
  380. ;    120     Let 
  381. ;    19      Print 
  382. ;    45      PrintLn 
  383. ;    32      If 
  384. ;    1       DispFile 
  385. ;    1       FOpen 
  386. ;    1       FClose 
  387. ;    7       FGet 
  388. ;    8       DefColor
  389. ;    5       Log 
  390. ;    14      Gosub 
  391. ;    7       Return
  392. ;    3       Inc 
  393. ;    2       Dec 
  394. ;    4       AnsiPos 
  395. ;    1       Forward 
  396. ;    1       Download 
  397. ;
  398. ;
  399. ; ■ Functions used :
  400. ;
  401. ;    4       *
  402. ;    2       /
  403. ;    748     +
  404. ;    6       -
  405. ;    28      ==
  406. ;    2       <>
  407. ;    4       <
  408. ;    1       <=
  409. ;    3       >
  410. ;    2       >=
  411. ;    27      !
  412. ;    2       &&
  413. ;    9       ||
  414. ;    1       Len(
  415. ;    4       Upper()
  416. ;    8       Left()
  417. ;    3       Ferr()
  418. ;    3       Chr()
  419. ;    3       RTrim()
  420. ;    2       Random()
  421. ;    1       Inkey()
  422. ;    1       PPEPath()
  423. ;    1       GetToken()
  424. ;    1       TokCount()
  425. ;    3       ScrText()
  426. ;
  427. ;------------------------------------------------------------------------------
  428. ;
  429. ; Analysis flags : No flag
  430. ;
  431. ;------------------------------------------------------------------------------
  432. ;
  433. ; Postprocessing report
  434. ;
  435. ;    1       For/Next
  436. ;    1       While/EndWhile
  437. ;    24      If/Then or If/Then/Else
  438. ;    0       Select Case
  439. ;
  440. ;------------------------------------------------------------------------------
  441. ;                 AEGiS Corp - Break the routines, code against the machines!
  442. ;------------------------------------------------------------------------------
  443.